home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / Anwender / Office / AmigaWriter / Patches / AW1.02-GermanSpecial.lha / AmigaWriter-1st_Patch / AW-Patch Install-Script < prev    next >
Text File  |  1998-10-20  |  10KB  |  390 lines
  1. ;*************************************************************************
  2. ;*  AmigaWriter Patch-Installer Version 1.03   16 Oktober 1998           *
  3. ;*                                                                       *
  4. ;*  ©1998 HAAGE & PARTNER Computer GmbH                                  *
  5. ;*                                                                       *
  6. ;*  If you have any installer questions please let us know!              *
  7. ;*                                                                       *
  8. ;*************************************************************************
  9. ;
  10. ; $VER: AmigaWriter V1.10 Install Version 1.04 (16.10.98)
  11.  
  12. (complete 0)
  13.  
  14. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  15. ; Versionen.
  16.  
  17. (set #amigawriter-version "1.10")
  18. (set #amigawriter-date "(09.10.98)")
  19.  
  20. ; // Die Dateigrößen
  21.  
  22. (set #size-komplett 2) ; MByte CD-Installation
  23.  
  24. (set #noaw_installed (cat "\n\n"
  25.         "AmigaWriter-Assign not found. Please install AmigaWriter\n"
  26.         "from your original disks first.\n"
  27.         "\n"))
  28.  
  29. (set #noaw_installed (cat "\n\n"
  30.         "AmigaWriter konnte auf Ihrer Festplatte nicht gefunden werden.\n\n\n"
  31.         "Bitte installieren Sie zuerst von den Original-Disketten, bevor\n"
  32.         "Sie den Patch ausführen\n\n"))
  33.  
  34. (if (= (exists "AmigaWriter:" (noreq)) 0)
  35.     (
  36.     (message #noaw_installed)
  37.     (exit (quiet))
  38.     )
  39. )
  40.  
  41. (set #awvernum (getversion "AmigaWriter:AmigaWriter"))
  42. (set #awver (/ #awvernum 65536))
  43. (set #awrev (- #awvernum (* #awver 65536)))
  44.  
  45. ;====================================================================
  46. ; Initialisierungen
  47.  
  48. ; --- English strings ---
  49.  
  50.     (set #wrongos "\n Sorry, you will need OS3.0 or better\n")
  51.  
  52.     (set #wrongcpu "\n Sorry, you will need min. a 68020 CPU to use AmigaWriter\n")
  53.  
  54.     (set #welcome (cat "\n\n"
  55.         "Welcome to the installation of the new word processor AmigaWriter\n\n"
  56.         "Version "#amigawriter-version " of "#amigawriter-date"\n\n"
  57.         "This script patches the old version "#awver".0"#awrev" of AmigaWriter and some\n"
  58.         "new system librarys onto your harddisk!\n\n"
  59.         "© 98 HAAGE&PARTNER Computer GmbH\n"
  60.         ))
  61.  
  62.     (set #install_wizardlib
  63.        "Copying the Wizard.Library")
  64.  
  65.     (set #install_wizardlib_help
  66.        "The Library makes very short programms!")
  67.  
  68.     (set #install_applib
  69.        "Copying the Appmanager.Library")
  70.  
  71.     (set #install_applib_help
  72.        "The Library makes very short programms!")
  73.  
  74.     (set #patch_error (cat "\n\n"
  75.         "Error during unpacking!\n\n"
  76.         "Maybe diskspace got low or you have protected\n"
  77.         "some files.\n"
  78.         ))
  79.     (set #install_patch (cat "\n\n"
  80.         "Install the newest AmigaWriter version "#amigawriter-version"\n\n"))
  81.  
  82.  
  83. (if (= @language "deutsch") (
  84.  
  85.     (set #wrongos "\n Sorry, AmigaWriter benötigt mind. OS3.0.\n")
  86.  
  87.     (set #wrongcpu "\n Sorry, das AmigaWriter-Paket setzt eine 68020 CPU voraus!\n")
  88.  
  89.     (set #welcome (cat "\n\nWillkommen beim ersten Patch der neuen\n"
  90.         "Textverarbeitung AmigaWriter.\n\n"
  91.         "Version "#amigawriter-version " vom "#amigawriter-date"\n\n"
  92.         "Dieses Skript patched Ihre alte Version "#awver".0"#awrev" von AmigaWriter\n"
  93.         "und installiert verschiedene neue Bibliotheken und Zusatzdateien\n"
  94.         "auf Ihre Festplatte.\n\n"
  95.         "© 98 HAAGE&PARTNER Computer GmbH\n"
  96.         ))
  97.  
  98.    (set #install_wizardlib
  99.       "Kopiere die Wizard.Library")
  100.    (set #install_wizardlib_help
  101.       "Sie ist für die sehr kurzen Programme verantwortlich!")
  102.    (set #install_applib
  103.       "Kopiere die Appmanager.Library")
  104.    (set #install_applib_help
  105.       "Sie ist für die sehr kurzen Programme verantwortlich!")
  106.  
  107.    (set #patch_error (cat "\n\n"
  108.        "Fehler beim Entpacken!\n\n"
  109.        "Stellen Sie bitte sicher, daß Ihre Festplatte\n"
  110.        "ausreichend Speicherkapazität hat, und, falls\n"
  111.        "die Dateien bereits vorhanden sind, diese nicht\n"
  112.        "lösch- oder schreibgeschützt sind.\n"
  113.        ))
  114.  
  115.    (set #install_patch (cat "\n\n"
  116.        "Installieren die neueste AmigaWriter Version "#amigawriter-version"\n\n"))
  117. ))
  118.  
  119. (set #os-version (/ (getversion) 65536))
  120. (set #os-13 (< #os-version 36))
  121. (set #os-20 (>= #os-version 36))
  122. (set #os-21 (>= #os-version 38))
  123. (set #os-30 (>= #os-version 39))
  124.  
  125. (set setpatchvernum (getversion "C:SetPatch"))
  126. (set setpatchver (/ setpatchvernum 65536))
  127. (set setpatchrev (- setpatchvernum (* setpatchver 65536)))
  128.  
  129. ; ------------ Die Pfadnamen der einzelnen Quell-Dateien ----------------
  130.  
  131. ;(set #source-lhx                     "AmigaWriter_Disk1:C/LHex")
  132. ;(set #source-readme                  "AmigaWriter_Disk1:Readme")
  133. (set #source-setpatch                "C/SetPatch")
  134.  
  135. (set #amigawriter-patch1             "AW-Patch1.02+->1.10")
  136. (set #amigawriter-patch2             "AW-Patch1.04->1.10")
  137. (set #wizardfile                     "AmigaWriter.Wizard")
  138. (set #awabout                        "AmigaWriterAbout")
  139. (set #plugins                        "AWPlugIn")
  140. (set #catalogs                       "Catalogs")
  141. (set #docs                           "Documents")
  142. (set #libs                           "Libs")
  143. (set #ssm                            "Tools/StormScreenManager")
  144. (set #ssmcatalog                     "Tools/Catalogs")
  145.  
  146. (set #wizardlib                      "SYSLibs/wizard.library")
  147. (set #applib                         "SYSLibs/appmanager.library")
  148.  
  149. ;=====================================================================================
  150. ; // Beginn der Installation
  151. ;=====================================================================================
  152.  
  153. ; ----------------------------- Prozeduren ------------------------------
  154.  
  155. (Procedure @Make_Folder
  156.     (
  157.     (set #folder (tackon #folder "AmigaWriter"))
  158.         (if (= (exists #folder) 0)
  159.             (
  160.             (makedir #folder (infos))
  161.             )
  162.             (
  163.             (set #update 1)        ; // Doch schon vorhanden!
  164.             )
  165.         )
  166.     )
  167. )
  168.  
  169. ; // wird min. unter 3.0 installiert ?
  170.  
  171. (if (= #os-30 0)
  172.  
  173.     (
  174.         (message #wrongos)
  175.         (exit (quiet))
  176.     )
  177. )
  178.  
  179. (if (patmatch "68000|68010" (database "cpu"))
  180.     (
  181.         (message #wrongcpu)
  182.         (exit (quiet))
  183.     )
  184. )
  185.  
  186. (onerror (
  187.     (if (> @ioerr 0)
  188.         (message (cat "\n ERROR CODE: " @ioerr "\n\n"))
  189.     )
  190. ))
  191.  
  192. (message #welcome)
  193.  
  194. (complete 2)
  195.  
  196. ; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------
  197.  
  198. (set #update 1)
  199.  
  200. (set #folder (getassign "AmigaWriter"))
  201.  
  202. ; // Lhx wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
  203. ; // geladen werden muß.
  204.  
  205. ;(copyfiles
  206. ;    (source #source-lhx)
  207. ;    (dest "RAM:")
  208. ;)
  209.  
  210. ; // Liesmich Datei auf Festplatte kopieren!
  211.  
  212. ;(copyfiles
  213. ;    (dest #folder)
  214. ;    (source #source-readme)
  215. ;    (infos)
  216. ;)
  217.  
  218. (set #patcherror 0)
  219.  
  220. (working #wrk_awpatch)
  221. (set #patcherror (run #amigawriter-patch1))
  222.  
  223. ;(if (= #awver 1)
  224. ;   (if (< #awrev 4)
  225. ;       (
  226.        ; Version 1.02 Patchen
  227.  
  228. ;       (working #wrk_awpatch)
  229. ;       (set #patcherror (run #amigawriter-patch1))
  230. ;       )
  231. ;       (
  232. ;       ; Version 1.04 Patchen
  233. ;
  234. ;       (working #wrk_awpatch)
  235. ;       (set #patcherror (run #amigawriter-patch2))
  236. ;       )
  237. ;   )
  238. ;)
  239.  
  240. (complete 10)
  241.  
  242. (if  ( <> #patcherror 0) ; Probleme beim Patchen
  243.     (
  244.     (message #patch_error)
  245.     (exit (quiet))
  246.     )
  247. )
  248.  
  249. (copyfiles
  250.    (prompt  #install_patch)
  251.    (help    @copyfiles-help)
  252.    (source  #wizardfile)
  253.    (dest    #folder)
  254.    (confirm)
  255. )
  256.  
  257. (complete 20)
  258.  
  259. (copyfiles
  260.    (prompt  #install_patch)
  261.    (help    @copyfiles-help)
  262.    (source  #awabout)
  263.    (dest    #folder)
  264.    (confirm)
  265. )
  266.  
  267. (complete 30)
  268.  
  269. (copyfiles
  270.    (prompt  #install_patch)
  271.    (help    @copyfiles-help)
  272.    (source  #plugins)
  273.    (dest    (tackon #folder "AWPlugIn"))
  274.    (all)
  275.    (confirm)
  276. )
  277.  
  278. (complete 40)
  279.  
  280. (copyfiles
  281.    (prompt  #install_patch)
  282.    (help    @copyfiles-help)
  283.    (source  #catalogs)
  284.    (dest    (tackon #folder "Catalogs"))
  285.    (all)
  286.    (confirm)
  287. )
  288.  
  289. (complete 50)
  290.  
  291. (copyfiles
  292.    (prompt  #install_patch)
  293.    (help    @copyfiles-help)
  294.    (source  #docs)
  295.    (dest    (tackon #folder "Documents"))
  296.    (all)
  297.    (confirm)
  298. )
  299.  
  300. (complete 60)
  301.  
  302. (copyfiles
  303.    (prompt  #install_patch)
  304.    (help    @copyfiles-help)
  305.    (source  #libs)
  306.    (dest    (tackon #folder "Libs"))
  307.    (all)
  308.    (confirm)
  309. )
  310.  
  311. (complete 70)
  312.  
  313. (copyfiles
  314.    (prompt  #install_patch)
  315.    (help    @copyfiles-help)
  316.    (source  #ssm)
  317.    (dest    "sys:wbstartup")
  318.    (infos)
  319.    (confirm)
  320. )
  321.  
  322. (complete 80)
  323.  
  324. (copyfiles
  325.    (prompt  #install_patch)
  326.    (help    @copyfiles-help)
  327.    (source  #ssmcatalog)
  328.    (dest    "sys:locale")
  329.    (all)
  330.    (confirm)
  331. )
  332.  
  333. (complete 90)
  334.  
  335. (copylib
  336.    (prompt  #install_patch)
  337.    (help    @copyfiles-help)
  338.    (source  #wizardlib)
  339.    (dest    "libs:")
  340.    (confirm)
  341. )
  342.  
  343.  
  344. (complete 99)
  345.  
  346. (copylib
  347.    (prompt  #install_patch)
  348.    (help    @copyfiles-help)
  349.    (source  #applib)
  350.    (dest    "libs:")
  351.    (confirm)
  352. )
  353.  
  354. (set #patchresult 0)
  355.  
  356. (set #setpatchask (cat "\n\nWrong Setpatch-Version\n\n"
  357.                  "You have installed version "setpatchver"."setpatchrev" of SetPatch\n\n"
  358.                  "Please install a new one!"))
  359.  
  360. (if (= @language "deutsch") (
  361. (set #setpatchask (cat "\n\nAlte Version von SetPatch entdeckt.\n\n"
  362.                  "Sie haben Version "setpatchver"."setpatchrev" von SetPatch installiert.\n\n"
  363.                  "Soll einen neuere Version installiert werden?")))
  364. )
  365.  
  366. (if (<= setpatchver 40)
  367.    (if (<= setpatchrev 16)
  368.        (set #patchresult
  369.             (askbool
  370.             (prompt #setpatchask)
  371.             (help @askoptions-help)    ; // Auswahl Hilfetext
  372.             (default 0))
  373.        )
  374.  
  375.    )
  376. )
  377.  
  378. (if (<> #patchresult 0)
  379.     (
  380.         (copyfiles
  381.             (source #source-setpatch)
  382.             (dest "C:")
  383.         )
  384.     )
  385. )
  386.  
  387. (complete 100)
  388.  
  389. (exit #endnow (quiet))
  390.